home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / v10n12.arc / SUPERSCR.WFW < prev    next >
Text File  |  1991-05-30  |  751b  |  21 lines
  1. Sub MAIN
  2. FormatDefineStyles StyleName$()
  3. REM     Define a new style based on the current style.
  4. Dim dlg As FormatDefineStylesChar
  5. REM     Set the variable "dlg" as the current character style.
  6. GetCurValues dlg
  7. REM     Store the current values of "dlg" in DialogRecord.
  8. If SuperScript() Then
  9. REM     If SuperScript is on, then...
  10. FormatCharacter .Points = dlg.Points, .Position = 0
  11. REM     Format the current selected text to be set as defined
  12. REM     in "dlg".
  13. Else
  14. REM     Otherwise...
  15. FormatCharacter .Points = Val(dlg.Points) - 2, .Position = "2pt"
  16. REM     Format the currently selected text to be two points smaller 
  17. REM     than as defined in "dlg" and positioned 2 points above the 
  18. REM     current baseline.
  19. End If
  20. End Sub
  21.